home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCSMGMS.SRC < prev    next >
Text File  |  1990-11-06  |  5KB  |  288 lines
  1. ;\|
  2. ;FPCSMGMS.SRC     Translated from FPCSMGMS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  12:52:40 PM  22/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(DOB1|S|8||)
  6.     define(DOB2|S|8||)
  7.     define(MEM_DOC|N|1||)
  8.     define(NO_CTR|N|4||)
  9.     define(YES_CTR|N|4||)
  10.     define(TOT_CTR|N|4||)
  11.     define(PERCENT|N|5|2|)
  12.     define(TO_DATE|S|8||)
  13.     define(DOC_NAME|A|30||)
  14.     define(TD|S|8||)
  15.     define(S_CTR|N|4||)
  16.     define(F_CTR|N|4||)
  17.     define(H_CTR|N|4||)
  18.     define(O_CTR|N|4||)
  19.     define(OPC|N|5|2|)
  20.     define(HPC|N|5|2|)
  21.     define(SPC|N|5|2|)
  22.     define(FRPC|N|5|2|)
  23.     define(TD|S|8||)
  24.     date(TD|G)
  25.     open(GPSETUP||0|)
  26.     open(PATIENT||0|)
  27.     open(RECALLS||0|)
  28.     open(MEMORY||0|)
  29. START:
  30.     mount(NEWS|S)
  31.     find(B|MEM_NAME||)
  32.     TO_DATE = (MEM_TO_DATE)
  33.     DOB1 = (MEM_DOB1)
  34.     DOB2 = (MEM_DOB2)
  35.     MEM_DOC = (1)
  36.     trap(I|G|EXIT2)
  37.     gosub MOUNT
  38. STARTER:
  39.     find(B|HEADING||)
  40.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  41.     trap(P|S|SHEADING)
  42.     ptof
  43.     DATE.OF.BIRTH = (DOB1)
  44.     find(B|COD.PAT.NAME|EXIT|)
  45. TEST:
  46.     if COD[1] = ("") do
  47.         {
  48.         if COD.D[1] = (0) then goto NEXT
  49.         }
  50.     RECORD.NUMBER = (COD.REF)
  51.     find(M|RECORD.NUMBER|EXIT|)
  52.     pmsg(DATE.OF.BIRTH|1|1|N|N|S|)
  53.     if DOCTOR <> (MEM_DOC) goto NEXT
  54.     if SEX <> ("F") goto NEXT
  55.     if DATE.OF.BIRTH > (DOB2) goto NEXT
  56.     if DATE.OF.BIRTH < (DOB1) goto NEXT
  57.     gosub FINDREC
  58. NEXT:
  59.     find(N|RECALLS|EXIT|)
  60.     goto TEST
  61. FINDREC:
  62. NO_IMDATE:
  63.     if COD[1] = ("HYS") ret
  64.     if COD[1] = ("REF") ret
  65.     if COD[1] = ("VIR") ret
  66.     if SM_DATE > (TO_DATE-2005) do
  67.         {
  68.         if WHERE = ("H") do
  69.             {
  70.             pfmt(7|||N|N|)
  71.             TOT_CTR = (TOT_CTR+1)
  72.             clr(RECALLS|B)
  73.             ret
  74.             }
  75.         if WHERE = ("F") do
  76.             {
  77.             pfmt(7|||N|N|)
  78.             TOT_CTR = (TOT_CTR+1)
  79.             clr(RECALLS|B)
  80.             ret
  81.             }
  82.         clr(RECALLS|B)
  83.         ret
  84.         }
  85.     ret
  86. NOCOD:
  87.     clr(RECALLS|B)
  88.     goto NEXT
  89. SHEADING:
  90.     pfmt(1|||N|N|)
  91.     pfmt(2|||N|N|)
  92.     pblnk(1)
  93.     pfmt(3|||N|N|)
  94.     pblnk(2)
  95.     pfmt(4|||N|N|)
  96.     pblnk(1)
  97.     pfmt(5|||N|N|)
  98.     pfmt(6|||N|N|)
  99.     ret
  100. MOUNT:
  101.     pchr(P|4)
  102.     mount(NEW1|R|P)
  103.     pset(132|70|66)
  104.     pchr(P|1)
  105.     ret
  106. EXIT:
  107.     pfmt(8|||N|N|)
  108.     trap(P|D)
  109.     ptof
  110.     TOT_CTR = (0)
  111.     MEM_DOC = (MEM_DOC+1)
  112.     if MEM_DOC > (4) goto EXIT2
  113.     goto STARTER
  114. EXIT2:
  115.     run("FPCSMNO")
  116. \R NEW     
  117. SMEAR TARGET REPORT FOR &                              ON &        FROM DOB &        TO &        PRINTED &
  118. =================================================================================================================================
  119. WOMANS NAME                  ADDRESS               AREA                   D.O.B       LAST SMEAR  WHERE CODE  NEXT DUE
  120. =================================================================================================================================
  121. &                           &                      &                      &          &              &   &      &
  122. &                           &                      &                      &          NO RECORD FOR THIS PATIENT
  123. TOTAL AT RISK                  = &    (NOT INCLUDING HYSTERECTOMIES)
  124. TOTAL UP TO DATE               = &
  125. PERCENTAGE UP TO DATE          = &
  126. DONE AT SURGERY                = &     %&
  127. DONE AT HOSPITAL               = &     %&
  128. DONE AT FAMILY PLANNING CLINIC = &     %&
  129. DONE AT OTHER                  = &     %&
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165. \
  166. DOC_NAME
  167. TO_DATE
  168. DOB1
  169. DOB2
  170. TD
  171. PATIENT.NAME
  172. ADDRESS1
  173. AREA
  174. DATE.OF.BIRTH
  175. SM_DATE
  176. WHERE
  177. COD[1]
  178. COD.D[1]
  179. PATIENT.NAME
  180. ADDRESS1
  181. AREA
  182. DATE.OF.BIRTH
  183. TOT_CTR
  184. YES_CTR
  185. PERCENT
  186. S_CTR
  187. SPC
  188. H_CTR
  189. HPC
  190. F_CTR
  191. FRPC
  192. O_CTR
  193. OPC
  194. \
  195. \STNEWS    
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.                             SMEARS
  203.                  FPC TARGET PRINT OUTS 11" PAPER
  204.              ╔═══════════════════════════════════════╗
  205.              ║                                       ║
  206.              ║             FPC TARGET DATE:&         ║
  207.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  208.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  209.              ║               DOCTOR NUMBER:&         ║
  210.              ╚═══════════════════════════════════════╝
  211.                                ESC-EXIT
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220. \
  221. TO_DATE
  222. DOB1
  223. DOB2
  224. MEM_DOC
  225. \
  226. \R NEW1    
  227. &                                                    NORTH YORKSHIRE                             Date:&
  228.                                                 FAMILY PRACTITIONER COMMITTEE
  229.                                       LIST OF WOMEN FOR GP CYTOLOGY TARGETS AS AT : &
  230.                          Women Who Are Eligible And Have Been Adequately Smeared NOT under GMS
  231. Surname        Forename             Nhs Number      Date Of Birth   Rcl Date     Test Date Result  Under GMS Y/N
  232. ===========================         ==========      =============   ========     ========  ======  =============
  233. &                                   &               &               &            &         &        &
  234. Total:&
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275. \
  276. DOC_NAME
  277. TD
  278. TO_DATE
  279. PATIENT.NAME
  280. NHS.NUM
  281. DATE.OF.BIRTH
  282. COD.D[1]
  283. SM_DATE
  284. COD[1]
  285. WHERE
  286. TOT_CTR
  287. \
  288.